home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / magicwb / update / update magicwb < prev    next >
Text File  |  1980-06-28  |  8KB  |  241 lines
  1. failat 21
  2.  
  3. if not exists /XEN-Icons
  4.   echo "*n Please change current directory to that of MagicWB/Update *n or start the installation from the Workbench!*n"
  5.   quit
  6. endif
  7.  
  8. echo "*n*e[1;32m ____________________________________________________________________"
  9. echo " *e[43m                                                                    *e[0m"
  10. echo " *e[0;32;43m              Welcome to MagicWB v1.2p: UPDATE MAGICWB*e[1m              *e[0m"
  11. echo " *e[1;4;43m                                                                    *e[0m"
  12. echo "*n*n This small installation was written to provide you with the most"
  13. echo " comfortable way of updating the changes between version 1.0 and"
  14. echo " version 1.2p of *e[32mMagicWB*e[0m."
  15. echo " *n This installation should only be done if you have already installed"
  16. echo " the previous version 1.0 of *e[32mMagicWB*e[0m. This installation will only"
  17. echo " install the differences between the two versions. Please consult"
  18. echo " the README file in this directory for detailed information."
  19. echo noline "*n*n Start the UPDATE? "
  20.  
  21. set > nil: InpVar ?
  22.  
  23. if $InpVar eq "ja"
  24.   skip Start
  25. endif
  26.  
  27. if $InpVar eq "j"
  28.   skip Start
  29. endif
  30.  
  31. if $InpVar eq "y"
  32.   skip Start
  33. endif
  34.  
  35. if $InpVar eq "yes"
  36.   skip Start
  37. endif
  38.  
  39. echo noline "*n*e[32m Update aborted."
  40. quit
  41.  
  42. lab Start
  43. assign Magic: /
  44. resident IU IconUpdate pure
  45. echo "*e[1;1H*e[J"
  46.  
  47. if exists SYS:System/Intellifont.info
  48.   echo noline " Copying 'Intellifont.info' Icon to SYS:System..."
  49.   IU tsd /XEN-Icons/System/Intellifont.info SYS:System/Intellifont.info
  50.   echo "....*e[33mDONE*e[0m*n"
  51. endif
  52.  
  53. if exists SYS:System/Format.info
  54.   echo noline " Updating 'Format.info' Icon in SYS:System..."
  55.   IU tsdc /XEN-Icons/System/Format.info SYS:System/Format.info
  56.   echo "........*e[33mDONE*e[0m*n"
  57. endif
  58.  
  59. if exists SYS:Tools/HDBackup.info
  60.   echo noline " Updating 'HDBackup.info' Icon in SYS:Tools..."
  61.   IU tsdc /XEN-Icons/Tools/HDBackup.info SYS:Tools/HDBackup.info
  62.   echo ".......*e[33mDONE*e[0m*n"
  63. endif
  64.  
  65. if exists SYS:Tools/HDToolBox.info
  66.   echo noline " Copying 'HDToolBox.info' Icon to SYS:Tools..."
  67.   IU tsd /XEN-Icons/Tools/HDToolBox.info SYS:Tools/HDToolBox.info
  68.   echo ".......*e[33mDONE*e[0m*n"
  69. endif
  70.  
  71. if exists SYS:Tools/MEmacs.info
  72.   echo noline " Copying 'MEmacs.info' Icon to SYS:Tools..."
  73.   IU tsd /XEN-Icons/Tools/MEmacs.info SYS:Tools/MEmacs.info
  74.   echo "..........*e[33mDONE*e[0m*n"
  75. endif
  76.  
  77. echo noline " Updating Monitor-Icons in SYS:Devs/Monitors..."
  78. list > ram:MWB SYS:Devs/Monitors/#?.info lformat "IU > NIL: tsdc /XEN-Icons/Devs/Monitors/def_Monitor.info SYS:Devs/Monitors/%n"
  79. failat 21
  80. execute > NIL: ram:MWB
  81. echo "......*e[33mDONE*e[0m*n"
  82.  
  83. echo noline " Updating Commodity-Icons in SYS:Tools/Commodities..."
  84. list > ram:MWB SYS:Tools/Commodities/#?.info lformat "IU > NIL: tsdc /XEN-Icons/Tools/Commodities/%n SYS:Tools/Commodities/%n"
  85. failat 21
  86. execute > NIL: ram:MWB
  87. echo "*e[33mDONE*e[0m*n"
  88.  
  89. echo noline " Updating Commodity-Icons in SYS:WBStartup..."
  90. list > ram:MWB SYS:WBStartup/#?.info lformat "IU > NIL: tsdc /XEN-Icons/Tools/Commodities/%n SYS:WBStartup/%n"
  91. failat 21
  92. execute > NIL: ram:MWB
  93. echo "........*e[33mDONE*e[0m*n"
  94.  
  95. echo noline " Updating DEVS:DOSDrivers-Icons' tooltypes..."
  96. list > ram:MWB SYS:Devs/DOSDrivers/#?0.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver0.info %s%s"
  97. execute > NIL: ram:MWB
  98. list > ram:MWB SYS:Devs/DOSDrivers/#?1.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver1.info %s%s"
  99. execute > NIL: ram:MWB
  100. list > ram:MWB SYS:Devs/DOSDrivers/#?2.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver2.info %s%s"
  101. execute > NIL: ram:MWB
  102. if exists SYS:Storage/DOSDrivers
  103.   list > ram:MWB SYS:Storage/DOSDrivers/#?0.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver0.info %s%s"
  104.   execute > NIL: ram:MWB
  105.   list > ram:MWB SYS:Storage/DOSDrivers/#?1.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver1.info %s%s"
  106.   execute > NIL: ram:MWB
  107.   list > ram:MWB SYS:Storage/DOSDrivers/#?2.info lformat "IU > NIL: dcs /XEN-Icons/Devs/DOSDrivers/def_DOSDriver2.info %s%s"
  108.   execute > NIL: ram:MWB
  109. endif
  110. echo "........*e[33mDONE*e[0m*n"
  111.  
  112. echo noline " Updating DEFAULT-Icons in ENVARC:Sys..."
  113. copy > NIL: /XEN-Icons/Prefs/Env-Archive/Sys/#?.info TO ENVARC:Sys
  114. echo ".............*e[33mDONE*e[0m*n"
  115.  
  116.  
  117. echo noline " Updating 'Marble_CLASSIC' in SYS:Prefs/Patterns..."
  118. set PattPath SYS:Prefs/Patterns
  119. if not exists $PattPath
  120.   makedir $PattPath
  121. endif
  122.  
  123. version >NIL: exec.library 39
  124. if warn
  125.   copy > NIL: /Patterns/Patterns2.0/Marble_CLASSIC TO $PattPath
  126. else
  127.   SYS:Prefs/WBPattern FROM WBPattern.pre USE
  128.   copy > NIL: /Patterns/Marble_CLASSIC TO $PattPath
  129.   copy > NIL: /Patterns/MarbleDark TO $PattPath
  130.   copy > NIL: /XEN-Icons/Prefs/Env-Archive/Sys/WBPattern.prefs ENVARC:Sys
  131. endif
  132. echo "..*e[33mDONE*e[0m*n"
  133.  
  134. echo noline " Updating MagicWB-Fonts in FONTS:..."
  135. copy > NIL: /Fonts/#? TO FONTS: all
  136. echo ".................*e[33mDONE*e[0m*n"
  137.  
  138. if exists SYS:Disk.info
  139.   echo noline " Updating HardDisk-Icon in SYS:..."
  140.   IU > NIL: dcw XEN-Icons/SPECIAL/HD.info SYS:Disk.info
  141.   echo "...................*e[33mDONE*e[0m*n"
  142. else
  143.   lab Path
  144.   echo noline "*n Please enter the PATH where the HardDisk-Icon*n is located (i.e. 'DH0:'): "
  145.   set > NIL: Path ?
  146.   if > NIL: not exists $Path
  147.     echo " Wrong path, path does not exist! Try again...*n"
  148.     skip back path
  149.   endif
  150.   echo noline " Updating HardDisk-Icon in $Path..."
  151.   cd $Path
  152.   if exists Disk.info
  153.     IU > NIL: dcw Magic:XEN-Icons/SPECIAL/HD.info Disk.info
  154.   endif
  155.   cd Magic:
  156.   echo "...................*e[33mDONE*e[0m*n"
  157. endif
  158.  
  159. lab HardDisk
  160.  
  161. echo noline " Do you want to have the new HardDisk-Icon installed to other partitions? "
  162. set > nil: HardDisk ?
  163. echo "*e[1;1H*e[J"
  164. if $HardDisk eq "ja"
  165.   skip InstallHardDisk
  166. endif
  167. if $HardDisk eq "j"
  168.   skip InstallHardDisk
  169. endif
  170. if $HardDisk eq "y"
  171.   skip InstallHardDisk
  172. endif
  173. if $HardDisk eq "yes"
  174.   skip InstallHardDisk
  175. endif
  176. skip Continue
  177.  
  178. lab InstallHardDisk
  179. echo noline "*N Please enter the DEVICE NAME of your desired partition (i.e. 'DH0:'): "
  180. set > nil: Device [Return]
  181. set > nil: Device ?
  182. if not exists $Device
  183.   echo " Wrong device, $Device does not exist! Try again..."
  184.   skip back InstallHardDisk
  185. endif
  186. echo noline "*n Installing HardDisk-Icon to $Device..."
  187. cd $Device
  188. IU > NIL: dcw Magic:XEN-Icons/SPECIAL/HD.info Disk.info
  189. cd Magic:
  190. echo "..*e[33mDONE*e[0m*n"
  191. skip back HardDisk
  192.  
  193. lab Continue
  194.  
  195. echo noline "*n Recursively updating Drawer-Icons in SYS: ..."
  196. list > ram:MWB SYS: dirs all lformat "if exists *"SYS:%n.info*" *nIU > NIL: cw XEN-Icons/Prefs/Env-Archive/Sys/def_Drawer.info *"SYS:%n.info*" *nendif*n"
  197. execute > NIL: ram:MWB
  198. echo "...................*e[33mDONE*e[0m"
  199.  
  200. echo "*n*n You can now decide (again) which type of Prefs-Icon you want to have"
  201. echo " installed to your SYS: directory. Please type either *"SMALL*" or *"BIG*""
  202. echo " in the following request..."
  203. lab Retry
  204. echo noline "*n Which type of Prefs-Icon should be installed? *e[32m"
  205. set > NIL: Prefs ?
  206. echo noline "*e[0m"
  207. if $Prefs eq "SMALL"
  208.   Echo noline " Installing SMALL Prefs-Icon..."
  209.   IU > NIL: cw Magic:XEN-Icons/SPECIAL/Prefs.info SYS:Prefs.info
  210.   echo "..*e[33mDONE*e[0m"
  211. else
  212.   if $Prefs eq "BIG"
  213.     Echo noline " Installing BIG Prefs-Icon..."
  214.     IU > NIL: cw Magic:XEN-Icons/SPECIAL/Prefs2.info SYS:Prefs.info
  215.     echo "..*e[33mDONE*e[0m"
  216.     skip OK
  217.   endif
  218. echo " You MUST enter either *"SMALL*" or *"BIG*"! Try again..."
  219. skip back Retry
  220. endif
  221.  
  222. lab OK
  223.  
  224. if exists SYS:Trashcan.info
  225.   IU > NIL: cw XEN-Icons/Prefs/Env-Archive/Sys/def_trashcan.info SYS:Trashcan.info
  226. endif
  227.  
  228. echo "*n*e[32m Update is finished.*n*n"
  229. echo " NOTE: *e[0mThis installation has ONLY updated the Drawer-Icons in your SYS:"
  230. echo " directory (and of course all sub-directories of SYS:)."
  231. echo " So you may still find old MagicWB-Drawers in other directories. If you"
  232. echo " also want to update these Drawer-Icons, please use the *"UPDATE DRAWERS*""
  233. echo " installation of MagicWB 1.2p. Thank you."
  234. echo "*n      [Return]"
  235. set > NIL: Return ?
  236.  
  237. delete > NIL: ram:MWB
  238. resident IU remove
  239. assign magic: remove
  240. quit
  241.